object ProtectForm: TProtectForm Left = 596 Top = 210 Width = 610 Height = 430 HelpContext = 400 Caption = 'PurgeIE - Protect various Cookies, Cache and Visited URLs to byp' + 'ass Purge' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Panel4: TPanel Left = 0 Top = 0 Width = 602 Height = 100 HelpContext = 400 Align = alTop TabOrder = 0 object CookiesSBtn: TSpeedButton Left = 12 Top = 6 Width = 76 Height = 25 Hint = 'Display Cookies' Caption = 'Cookies' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777700000000000007770FFFFFFFFFFF07770FFFFFFFFFF F07770FFFFFFFFFFF07770F888888888F07770FFFFFFFFFFF07770F888888888 F07770FFFFFFFFFFF07770FFF8888888F07770FFFFFFFFFFF07770F00000FFFF F07770FFFFFFFFFFF07770000000000000777777777777777777} ParentShowHint = False ShowHint = True OnClick = CookiesSBtnClick end object VisitedSBtn: TSpeedButton Left = 220 Top = 6 Width = 76 Height = 25 Hint = 'Display Visited URLs' Caption = 'Visited' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00788888888888 888800000000000000080FFFFFFFFFFFFF080F00000000000F080FFFFFFFFFFF FF080F00000000000F080FFFFFFFFFFFFF080F00000000000F080FFFFFFFFFFF FF080F000F000F000F080FF07F70FFFFFF080FF70007FF000F080FFF888FFFFF FF080FFFF0FFFF000F080FFFFFFFFFFFFF080000000000000007} ParentShowHint = False ShowHint = True OnClick = VisitedSBtnClick end object CacheSBtn: TSpeedButton Left = 116 Top = 6 Width = 76 Height = 25 Hint = 'Display Cache' Caption = 'Cache' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777700000000000077770FFFFFFFFFF077770FFFFFFFFFF077770FF444444F F077770FFFFFFFFFF077770FF444444FF077770FFFFFFFFFF077770FF444444F F077770FFFFFFFFFF077770FF4444FFFF077770FFFFFFF000077770FFFFFFF07 0777770FFFFFFF00777777000000000777777777777777777777} ParentShowHint = False ShowHint = True OnClick = CacheSBtnClick end object DeleteSBtn: TSpeedButton Left = 417 Top = 70 Width = 76 Height = 25 Hint = 'Delete Selected Entry' Caption = 'Delete' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777770F77770F7777777777777000F777777 0F7777000F777770F777777000F77700F7777777000F700F77777777700000F7 7777777777000F7777777777700000F777777777000F70F77777770000F77700 F77770000F7777700F77700F7777777700F77777777777777777} ParentShowHint = False ShowHint = True OnClick = DeleteSBtnClick end object ProtectSBtn: TSpeedButton Left = 214 Top = 70 Width = 76 Height = 25 Hint = 'Protect Selected Entry' Caption = 'Protect' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777700077 7777777777706077777777777770607777777777000060000777777706666666 0777777700006000077777777770607777777777777060777777777777700077 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = ProtectSBtnClick end object UnProtectSBtn: TSpeedButton Left = 316 Top = 70 Width = 76 Height = 25 Hint = 'UnProtect Selected Entry' Caption = 'Unprotect' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777770000000007777777033333330 7777777000000000777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = UnProtectSBtnClick end object ExitSBtn: TSpeedButton Left = 426 Top = 6 Width = 110 Height = 25 Hint = 'Return to Main Window' Caption = 'Return to Main' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000000000777770FFFFFFFFF0777770F8888888F0777770FFFFFFFFF0 777770F888888FF0777770FFFFFFFFF0777770F8888888F0777770FFFFFFFFF0 7777744444444444777774444444444477177777777777777717777777777771 7177777777777771177777777777777111777777777777777777} ParentShowHint = False ShowHint = True OnClick = ExitSBtnClick end object ViewSBtn: TSpeedButton Left = 113 Top = 70 Width = 76 Height = 25 Hint = 'View the selected file using the Viewer assigned to the file'#39's e' + 'xtension' Caption = 'View' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777777777777777777777777777777777700077770007777707E707707E70 77770E7E0770E7E077770FE70770FE7077770EFE0770EFE07777800070070008 7777707777777770777077077707777707707770770777777070777707077777 7707777770777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = ViewSBtnClick end object Find1Sbtn: TSpeedButton Left = 518 Top = 70 Width = 76 Height = 25 Hint = 'Find next displayed record containing the specified characters i' + 'n Cookie Contents or Internet Address (for Cache and Visited).' Caption = 'Find' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000777770000070F000777770F00070F000777770F000700000007000 0000700F000000F00000700F000700F00000700F000700F00000770000000000 00077770F00070F000777770000070000077777700077700077777770F07770F 0777777700077700077777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = Find1SbtnClick end object Label1: TLabel Left = 20 Top = 42 Width = 33 Height = 13 AutoSize = False Caption = 'Filter:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object NotRegMsg: TLabel Left = 264 Top = 44 Width = 258 Height = 13 Caption = 'After Trial Period, only basic list functions are available.' Visible = False end object ExitProtSBtn: TSpeedButton Left = 324 Top = 6 Width = 74 Height = 25 Hint = 'Terminate Execution - do not Return to Main Window' Caption = 'Exit' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777770007777777777700050777777777000555077777777705555500077 7777705555508077777770555F80F077777770555550F077757770555550F077 557770555550F075555570555550F077557770555500F0777577705500FFF077 77777000FFFFF077777770000000007777777777777777777777} ParentShowHint = False ShowHint = True OnClick = ExitProtSBtnClick end object OpenSbtn: TSpeedButton Left = 12 Top = 70 Width = 76 Height = 25 Hint = 'Open the Website for the selected URL' Caption = 'Open' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777700000000000077000FFFFFFFFFF070000FFFFFFF000080070FFFFFF08778 08770FFFFF0877E880770FFFFF07777870770FFFFF07E77870770FFFFF08EE78 80770FFFFFF0877807770FFFFFFF000077770FFFFFFFFFF077770FFFFFFF0000 77770FFFFFFF070777770FFFFFFF007777770000000007777777} ParentShowHint = False ShowHint = True OnClick = OpenSbtnClick end object LimitEdit: TEdit Left = 60 Top = 40 Width = 160 Height = 21 Hint = 'Enter character string to limit displayed records for next Selec' + 'tion to those containing the specified characters in Cookie Cont' + 'ents or Internet Address (for Cache and Visited).' ParentShowHint = False ShowHint = True TabOrder = 0 OnKeyPress = LimitEditKeyPress end object Sort1RadGrp: TRadioGroup Left = 264 Top = 33 Width = 256 Height = 30 Hint = 'Specify the Column to be sorted for the display.' Caption = 'Sort Column' Columns = 4 ItemIndex = 0 Items.Strings = ( 'Address' 'Status' 'Access' 'Hits') ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = Sort1RadGrpClick end end object ListView1: TListView Left = 0 Top = 100 Width = 602 Height = 165 Align = alClient OnClick = ListView1Click OnDblClick = ListView1DblClick Columns = < item Caption = 'Internet Address' Width = 300 end item Caption = 'Status' end item Caption = 'Accessed' Width = 116 end item Caption = 'Hits' Width = 35 end item Caption = 'Local File' Width = 400 end item Caption = 'Type' Width = 60 end> ReadOnly = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] GridLines = True MultiSelect = True RowSelect = True OnCompare = ListView1Compare OnMouseDown = ListView1MouseDown ParentFont = False PopupMenu = PopupProt2 SortType = stText TabOrder = 1 ViewStyle = vsReport OnKeyUp = ListView1KeyUp end object Panel1: TPanel Left = 0 Top = 265 Width = 602 Height = 138 Align = alBottom BevelOuter = bvNone Caption = 'Panel1' TabOrder = 2 object ListView2: TListView Left = 0 Top = 0 Width = 602 Height = 74 Hint = 'This area displays Information within the Selected Cookie' Align = alClient ColumnClick = False Columns = < item Caption = 'Cookie: Domain' Width = 130 end item Caption = 'Data Name' Width = 100 end item Caption = 'Data Value' Width = 260 end item Caption = 'Secure' end> ReadOnly = True GridLines = True RowSelect = True ParentShowHint = False ShowHint = True TabOrder = 0 TabStop = False ViewStyle = vsReport end object Panel3: TPanel Left = 0 Top = 74 Width = 602 Height = 64 Align = alBottom BevelOuter = bvNone TabOrder = 1 object Panel2: TPanel Left = 0 Top = 48 Width = 602 Height = 16 Align = alBottom Caption = 'Panel2' TabOrder = 0 object ProtfootMsg: TLabel Left = 1 Top = 1 Width = 600 Height = 14 Align = alClient Caption = 'ProtfootMsg' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object Panel5: TPanel Left = 0 Top = 0 Width = 602 Height = 48 Align = alClient BevelOuter = bvNone TabOrder = 1 object LabelWS: TLabel Left = 218 Top = 6 Width = 80 Height = 13 Hint = 'The Domain Name for the selected URL' AutoSize = False Caption = 'Domain Name - ' ParentShowHint = False ShowHint = True end object LabelWSt: TLabel Left = 298 Top = 6 Width = 79 Height = 13 Hint = 'The Domain Name for the selected URL' Caption = 'microsoft.com' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True end object PanelCS: TPanel Left = 4 Top = 4 Width = 190 Height = 18 Hint = 'Click to edit Cookie Setting for Domain Name - requires IE-6' BevelWidth = 2 ParentShowHint = False PopupMenu = PopupMenuCS ShowHint = True TabOrder = 0 OnMouseDown = PanelCSMouseDown object LabelCS: TLabel Left = 4 Top = 2 Width = 78 Height = 13 Caption = 'Cookie Setting - ' ParentShowHint = False ShowHint = False OnMouseDown = PanelCSMouseDown end object LabelCSt: TLabel Left = 86 Top = 2 Width = 100 Height = 13 AutoSize = False Caption = 'requires IE-6' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnMouseDown = PanelCSMouseDown end end object PanelSZ: TPanel Left = 4 Top = 26 Width = 190 Height = 18 Hint = 'Click to edit Security Zone setting for displayed Domain Mask' BevelWidth = 2 ParentShowHint = False PopupMenu = PopupMenuSZ ShowHint = True TabOrder = 1 OnMouseDown = PanelSZMouseDown object LabelSZ: TLabel Left = 4 Top = 2 Width = 75 Height = 13 Caption = 'Security Zone - ' ParentShowHint = False ShowHint = False OnMouseDown = PanelSZMouseDown end object LabelSZt: TLabel Left = 86 Top = 2 Width = 100 Height = 13 AutoSize = False Caption = 'Restricted' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnMouseDown = PanelSZMouseDown end end object PanelDM: TPanel Left = 214 Top = 26 Width = 300 Height = 18 Hint = 'Click to Create a new Domain Mask' BevelWidth = 2 ParentShowHint = False PopupMenu = PopupMenuDM ShowHint = True TabOrder = 2 OnMouseDown = PanelDMMouseDown object LabelDM: TLabel Left = 4 Top = 2 Width = 74 Height = 13 Caption = 'Domain Mask - ' ParentShowHint = False ShowHint = False OnMouseDown = PanelDMMouseDown end object LabelDMt: TLabel Left = 84 Top = 2 Width = 148 Height = 13 Caption = 'http://www.microsoft.com' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnMouseDown = PanelDMMouseDown end end end end end object PopupProt2: TPopupMenu AutoPopup = False OnPopup = PopupProt2Popup Left = 288 object PuOpen: TMenuItem Caption = 'Open' Default = True Hint = 'Open the Webpage for the selected URL..' OnClick = PuOpenClick end object PuView: TMenuItem Caption = 'View' Hint = 'View the selected file using the Viewer assigned to the file'#39's e' + 'xtension.' OnClick = PuViewClick end object PuProtect: TMenuItem Caption = 'Protect' Hint = 'Protect Selected Entry' OnClick = PuProtectClick end object PuUnprotect: TMenuItem Caption = 'Unprotect' Hint = 'UnProtect Selected Entry' OnClick = PuUnprotectClick end object PuDelete: TMenuItem Caption = 'Delete' Hint = 'Delete Selected Entry' OnClick = PuDeleteClick end end object FindDialog1: TFindDialog Options = [frDown, frFindNext, frHideMatchCase, frHideWholeWord, frHideUpDown, frDisableMatchCase, frDisableUpDown, frDisableWholeWord] OnFind = FindDialog1Find Left = 384 end object PopupMenuCS: TPopupMenu AutoPopup = False OnPopup = PopupMenuCSPopup Left = 314 Top = 258 object SettoAlwaysBlock1: TMenuItem Caption = 'Set to Always Block' OnClick = SettoAlwaysBlock1Click end object SettoAlwaysAllow1: TMenuItem Caption = 'Set to Always Allow' OnClick = SettoAlwaysAllow1Click end object ClearthisCookieSetting1: TMenuItem Caption = 'Clear - set to Default Behavior' OnClick = ClearthisCookieSetting1Click end end object PopupMenuSZ: TPopupMenu AutoPopup = False OnPopup = PopupMenuSZPopup Left = 400 Top = 257 object SetZonetoRestricted1: TMenuItem Caption = 'Set Domain Mask to Restricted Zone' OnClick = CustomPopUpCZhandler end object SetZonetoTrusted1: TMenuItem Caption = 'Set Domain Mask to Trusted Zone' OnClick = CustomPopUpCZhandler end object RemoveZoneMask1: TMenuItem Caption = 'Remove Domain Mask - set to Internet Zone' OnClick = CustomPopUpCZhandler end end object PopupMenuDM: TPopupMenu AutoPopup = False OnPopup = PopupMenuDMPopup Left = 472 Top = 253 object CreateNewDomainMaskinRestrictedZone1: TMenuItem Caption = 'Create new Domain Mask in Restricted Zone' OnClick = CreateNewDomainMask1Click end object CreateNewDomainMaskinTrustedZone1: TMenuItem Caption = 'Create new Domain Mask in Trusted Zone' OnClick = CreateNewDomainMask1Click end end end